home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / joh_h.inc < prev    next >
Encoding:
Text File  |  1998-05-14  |  1.9 KB  |  125 lines
  1. *---------------------------------------
  2. *
  3. *    ò\Ī
  4. *
  5. *    é╠é»é╝éΦ
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. joh_hit:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     tst.w    C_LR_F(a1)
  14.     bne    @f
  15.  
  16.     subi.w    #16,d1
  17.     subi.w    #32,d2
  18.     addi.w    #$0004,d7
  19.     move.w    d1,(a6)+
  20.     move.w    d2,(a6)+
  21.     move.w    d7,(a6)+
  22.     move.w    #$0003,(a6)+
  23.  
  24.     addi.w    #16,d1
  25.     addq.w    #1,d7
  26.     move.w    d1,(a6)+
  27.     move.w    d2,(a6)+
  28.     move.w    d7,(a6)+
  29.     move.w    #$0003,(a6)+
  30.  
  31.     subi.w    #16,d1
  32.     addi.w    #16,d2
  33.     addq.w    #1,d7
  34.     move.w    d1,(a6)+
  35.     move.w    d2,(a6)+
  36.     move.w    d7,(a6)+
  37.     move.w    #$0003,(a6)+
  38.  
  39.     addi.w    #16,d1
  40.     addq.w    #1,d7
  41.     move.w    d1,(a6)+
  42.     move.w    d2,(a6)+
  43.     move.w    d7,(a6)+
  44.     move.w    #$0003,(a6)+
  45.  
  46.     subi.w    #16,d1
  47.     addi.w    #16,d2
  48.     addq.w    #1,d7
  49.     move.w    d1,(a6)+
  50.     move.w    d2,(a6)+
  51.     move.w    d7,(a6)+
  52.     move.w    #$0003,(a6)+
  53.  
  54.     addi.w    #16,d1
  55.     addq.w    #1,d7
  56.     move.w    d1,(a6)+
  57.     move.w    d2,(a6)+
  58.     move.w    d7,(a6)+
  59.     move.w    #$0003,(a6)+
  60.  
  61.     addi.w    #16,d2
  62.     addq.w    #1,d7
  63.     move.w    d1,(a6)+
  64.     move.w    d2,(a6)+
  65.     move.w    d7,(a6)+
  66.     move.w    #$0003,(a6)+
  67.  
  68.     rts
  69. @@:
  70.     subi.w    #16,d1
  71.     subi.w    #32,d2
  72.     addi.w    #$4005,d7
  73.     move.w    d1,(a6)+
  74.     move.w    d2,(a6)+
  75.     move.w    d7,(a6)+
  76.     move.w    #$0003,(a6)+
  77.  
  78.     addi.w    #16,d1
  79.     subq.w    #1,d7
  80.     move.w    d1,(a6)+
  81.     move.w    d2,(a6)+
  82.     move.w    d7,(a6)+
  83.     move.w    #$0003,(a6)+
  84.  
  85.     subi.w    #16,d1
  86.     addi.w    #16,d2
  87.     addq.w    #3,d7
  88.     move.w    d1,(a6)+
  89.     move.w    d2,(a6)+
  90.     move.w    d7,(a6)+
  91.     move.w    #$0003,(a6)+
  92.  
  93.     addi.w    #16,d1
  94.     subq.w    #1,d7
  95.     move.w    d1,(a6)+
  96.     move.w    d2,(a6)+
  97.     move.w    d7,(a6)+
  98.     move.w    #$0003,(a6)+
  99.  
  100.     subi.w    #16,d1
  101.     addi.w    #16,d2
  102.     addq.w    #3,d7
  103.     move.w    d1,(a6)+
  104.     move.w    d2,(a6)+
  105.     move.w    d7,(a6)+
  106.     move.w    #$0003,(a6)+
  107.  
  108.     addi.w    #16,d1
  109.     subq.w    #1,d7
  110.     move.w    d1,(a6)+
  111.     move.w    d2,(a6)+
  112.     move.w    d7,(a6)+
  113.     move.w    #$0003,(a6)+
  114.  
  115.     subi.w    #16,d1
  116.     addi.w    #16,d2
  117.     addq.w    #2,d7
  118.     move.w    d1,(a6)+
  119.     move.w    d2,(a6)+
  120.     move.w    d7,(a6)+
  121.     move.w    #$0003,(a6)+
  122.  
  123.     rts
  124. *---------------------------------------
  125.